From 4644d03eb0fab77d6ec2ba62fb848a68cd5d2538 Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Sun, 26 May 2002 09:50:18 +0000 Subject: [PATCH] (set-fringe-mode): Work when updating `default-frame-alist'. --- lisp/fringe.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/fringe.el b/lisp/fringe.el index c7be27b061f..8ec6d142077 100644 --- a/lisp/fringe.el +++ b/lisp/fringe.el @@ -51,7 +51,9 @@ See `fringe-mode' for possible values and their effect." ;; Apply it to default-frame-alist. (let ((parameter (assq 'left-fringe default-frame-alist))) (if (consp parameter) - (setcdr parameter fringe-mode) + (setcdr parameter (if (consp fringe-mode) + (car fringe-mode) + fringe-mode)) (setq default-frame-alist (cons (cons 'left-fringe (if (consp fringe-mode) (car fringe-mode) @@ -59,7 +61,9 @@ See `fringe-mode' for possible values and their effect." default-frame-alist)))) (let ((parameter (assq 'right-fringe default-frame-alist))) (if (consp parameter) - (setcdr parameter fringe-mode) + (setcdr parameter (if (consp fringe-mode) + (cdr fringe-mode) + fringe-mode)) (setq default-frame-alist (cons (cons 'right-fringe (if (consp fringe-mode) (cdr fringe-mode) -- 2.30.2